(list
  (cons 'model
     (make-instance 'ModelSwarm #:transmitCulture 1
                                #:colorsFor "culture" )))
